home *** CD-ROM | disk | FTP | other *** search
/ Internet Surfer: Getting Started / Internet Surfer - Getting Started (Wayzata Technology)(7231)(1995).bin / pc / mac / bonus / peter_le / finger_1 / tokens / current.p next >
Text File  |  1991-11-14  |  657b  |  32 lines
  1. unit CURRENT;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ParameterDef;
  7.  
  8.     procedure Main (var p: parameterRecord);
  9.  
  10. implementation
  11.  
  12.     procedure Main (var p: parameterRecord);
  13.         var
  14.             t: longInt;
  15.     begin
  16.         GetDateTime(t);
  17.         UprString(p.param^, false);
  18.         if p.param^ = 'SHORT' then
  19.             IUDateString(t, shortDate, p.returnValue^)
  20.         else if p.param^ = 'LONG' then
  21.             IUDateString(t, longDate, p.returnValue^)
  22.         else if p.param^ = 'ABBREV' then
  23.             IUDateString(t, abbrevDate, p.returnValue^)
  24.         else if p.param^ = 'TIMESEC' then
  25.             IUTimeString(t, true, p.returnValue^)
  26.         else if p.param^ = 'TIME' then
  27.             IUTimeString(t, false, p.returnValue^)
  28.         else
  29.             p.returnValue^ := '?';
  30.     end;
  31.  
  32. end.